home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ADV350.ZIP / fchar.for < prev    next >
Text File  |  1990-11-18  |  378b  |  17 lines
  1.       INTEGER*4 FUNCTION FCHAR(LINE)
  2. C
  3. C  FINDS THE POSITION OF THE FIRST NON-BLANK CHARACTER IN A CHARACTER STRING.
  4. C  IF THE STRING IS BLANK, A VALUE OF 1 IS RETURNED.
  5. C
  6.       CHARACTER LINE * (*)
  7.       
  8.       FCHAR=1
  9.       DO 1 I=1,LEN(LINE)
  10.       IF(LINE(I:I).NE.' ') THEN
  11.          FCHAR=I
  12.          GOTO 100
  13.       ENDIF
  14.     1 CONTINUE
  15.   100 RETURN
  16.       END
  17.